xmit_char:        ldab    SCSR    ; first check if ready        andb    #$40    ; bit 6 is transmit complete flag        beq     xmit_char ; wait until TC flag is 1        staa    SCDR    ; transmit A register        rts